home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / irc / KuangEleven3Gm.lha / Kuang Eleven 3 / Rexx / CTCP / KDCC.amirx < prev    next >
Text File  |  1998-05-09  |  504b  |  13 lines
  1. /* $VER: kdcc.amirx 1.0 (9.5.98) Kuang Eleven Plugin : KDCC Plugin to extract compressed DCC file
  2. *   Requires AmIRC 1.30!
  3. */
  4. options results
  5. parse arg ':'prefix' 'type' 'channel' :'text
  6. parse var prefix nick'!'user'@'host
  7. div='01'x
  8. parse var text (div) command filename (div)
  9. if upper(command)~='KDCC' then exit
  10. filename=strip(filename,'B',' "')
  11. call setclip('st_kdccget',getclip('st_kdccget') filename' '||'01'x)
  12. "ECHO P="d2c(27)"b«KDCC» Compressed file" filename "will be decompressed when finished."
  13.